home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS075.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  35 lines
  1. 10  REM   -- DOS 3.3 HELLO
  2. 20  REM  
  3. 30  TEXT : PRINT 
  4. 40  HOME 
  5. 50  PRINT "DOS VERSION 3.3            08/25/80"
  6. 60  PRINT : PRINT "APPLE 11 PLUS"
  7. 65  PRINT "OR ROMCARD  SYSTEM LANGUAGE SLAVE"
  8. 75  REM 
  9. 80  REM  --POKE LANGUAGE CARD FINDER
  10. 90  POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
  11. 95  POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
  12. 100  POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
  13. 105  POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
  14. 110  POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
  15. 115  POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
  16. 120  POKE 822,3: POKE 823,104: POKE 824,205: POKE 825,0: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
  17. 125  POKE 831,192: POKE 832,96:
  18. 155  CALL 769
  19. 160  IF  PEEK(768) < >1  THEN 250
  20. 170  REM  
  21. 180  REM --IF THERE, LOAD INTG AND PA#1
  22. 190  REM  
  23. 200  VTAB 10: PRINT "(LOADING INTEGER INTO LANGUAGE CARD)"
  24. 210  PRINT "<CTRL-D>BLOAD INTBASIC,A$D000"
  25. 220  REM  --WRITE PROTECT THE CARD
  26. 230 A =  PEEK( -16254): REM   $C082
  27. 235  PRINT  CHR$(4);"BRUN HELLO.X"
  28. 240  END 
  29. 250  REM 
  30. 260  REM --NO CARD OR CAN'T RELOAD
  31. 270  REM 
  32. 280  IF  PEEK(768) = 0  THEN  END 
  33. 290  PRINT : PRINT "...LANGUAGE CARD CANNOT BE RELOADED": PRINT "   UNTIL THE SYSTEM IS REBOOTED..."
  34. 295  PRINT  CHR$(4);"BRUN HELLO.X"
  35. 300  END